home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Info / For Developers / GhostScript 5.10 / MacGS-510 / files / markhint.ps < prev    next >
Text File  |  1996-07-03  |  4KB  |  132 lines
  1. %    Copyright (C) 1994, 1995, 1996 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % markhint.ps
  19. % Draw the hints for a Type 1 font.
  20.  
  21. (type1ops.ps) runlibfile
  22.  
  23. /mhsetup        % <matrix> <print> mhsetup -
  24.  { /mhprint exch def
  25.    /mhmx exch def
  26.    /mhdash 0 9 gsave initmatrix dtransform grestore idtransform add abs def
  27.    gsave
  28.    clippath pathbbox
  29.    2 index sub /bbh exch def
  30.    2 index sub /bbw exch def
  31.    /bby exch def
  32.    /bbx exch def
  33.    grestore
  34.  } def
  35.  
  36. /markfonthints        % <matrix> <print> markfonthints -
  37.  { mhsetup
  38.  } def
  39.  
  40. /hmark            % <y> hmark -
  41.  { bbx exch moveto bbw 0 rlineto stroke
  42.  } def
  43. /hsmark            % <y0> <dy> hsmark -
  44.  { 1 index add exch gsave
  45.    [mhdash] 0 setdash 0 exch mhmx transform exch pop hmark
  46.    [mhdash 2 div dup 2 mul] 0 setdash 0 exch mhmx transform exch pop hmark
  47.    grestore
  48.  } def
  49. /vmark            % <x> vmark -
  50.  { bby moveto 0 bbh rlineto stroke
  51.  } def
  52. /vsmark            % <x0> <dx> vsmark -
  53.  { 1 index add exch gsave
  54.    [mhdash] mhdash setdash 0 mhmx transform pop vmark
  55.    [mhdash 2 div dup 2 mul] 0 setdash 0 mhmx transform pop vmark
  56.    grestore
  57.  } def
  58. /pmark            % <x> <y> pmark -
  59.  { newpath 0 4.5 gsave initmatrix dtransform grestore idtransform add abs
  60.    0 360 arc stroke
  61.  } def
  62. /mchdict mark
  63.   /hsbw { pop 0 mhmx transform translate 0 0 pmark }
  64.   /sbw { pop pop mhmx transform translate 0 0 pmark }
  65.   /hstem
  66.    { mhprint { (hstem ) print 2 copy 2 packedarray == } if
  67.      hsmark
  68.    }
  69.   /vstem
  70.    { mhprint { (vstem ) print 2 copy 2 packedarray == } if
  71.      vsmark
  72.    }
  73.   /hstem3
  74.    { mhprint { (hstem3 ) print 6 copy 6 packedarray == } if
  75.      3 { hsmark } repeat
  76.    }
  77.   /vstem3
  78.    { mhprint { (vstem3 ) print 6 copy 6 packedarray == } if
  79.      3 { vsmark } repeat
  80.    }
  81.   /div
  82.    { div
  83.    }
  84.   /callothersubr
  85.    { 3 eq
  86.       { pop
  87.     mhprint { (replace) = } if
  88.         % We're replacing hints; lighten the color.
  89.     currentrgbcolor 3 { 2 mul 3 div 3 1 roll } repeat setrgbcolor
  90.       }
  91.       { { pop } repeat
  92.       } ifelse
  93.    }
  94.   /callsubr
  95.    { Private /Subrs get exch get mchinterp
  96.    }
  97.   /pop
  98.    {
  99.    }
  100.   /return
  101.    {
  102.    }
  103. .dicttomark def
  104.  
  105. /mchinterp        % <charstring> mchinterp -
  106.  { 4330 exch dup length string .type1decrypt exch pop
  107.    dup length lenIV sub lenIV exch getinterval
  108.    0 () /SubFileDecode filter
  109.    mark exch charstack_read ]
  110.     { dup type /nametype eq
  111.        { mchdict exch .knownget { exec } { cleartomark mark } ifelse
  112.        }
  113.       if
  114.     }
  115.    forall
  116.  } def
  117.  
  118. /markcharhints        % <charname> <matrix> <print> markcharhints -
  119.  { mhsetup
  120.    gsave mark
  121.    /Private currentfont /Private get def
  122.    Private rcheck    % make sure we won't get an access error
  123.     { /lenIV Private /lenIV .knownget not { 4 } if def
  124.       currentfont /CharStrings get 3 -1 roll get mchinterp
  125.     }
  126.     { (Sorry, this font is protected; I can't show the hints.\n) print flush
  127.       exch
  128.     }
  129.    ifelse
  130.    cleartomark grestore
  131.  } def
  132.